home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 02 (1989-02)(MicroSPARC)(Side A).zip / Nibble Volume 10, No. 02 (1989-02)(MicroSPARC)(Side A).po / CMD.PATCH.S < prev    next >
Text File  |  1996-12-24  |  951b  |  32 lines
  1. ********************************
  2. * CMD.PATCH SOURCE CODE        *
  3. * BY CLIFF HARRIS              *
  4. * COPYRIGHT(C) 1989            *
  5. * MICROSPARC, INC.             *
  6. * CONCORD, MA 01742            *
  7. *                              *
  8. * MERLIN ASSEMBLER             *
  9. ********************************
  10. *
  11.           ORG $AB57
  12.           BEQ $AB61 GO EXECUTE SYS FILE
  13.           CMP #$F0 IS IT CMD?
  14.           BEQ $AB76 TREAT IT LIKE A SYS FILE
  15.           LDA #$0D "FILE TYPE MISMATCH"
  16.           SEC  FLAG ERROR
  17.           RTS  RETURN TO PROCESS ERROR
  18.           JSR $B4F2 CLOSE ALL OPEN FILES
  19.           JSR $B2FB CLOSE EXEC
  20.           LDA #$00
  21.           LDX #$05
  22.           STA $BF6A,X CLEAR BIT MAP FOR PAGES
  23.           DEX $98-$BF
  24.           BNE $AB6B
  25.           INC $BF6F PROTECT PAGE $BF
  26.           LDA #$FF SYS TYPE FILE
  27.           STA $BE6A STORE IN T PARAMETER
  28.           LDA #$00 SET UP EXECUTION ADDRESS
  29.           STA $BE58
  30.           LDA #$20
  31.           STA $BE59
  32.